home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11a.d64 / programm nr. 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  440b  |  26 lines
  1. 100 REM   ***   PROGRAMM NR.1   ***
  2. 110 :
  3. 120 IFZ=0THENZ=1:LOAD"GRAFIK MODUL",8,1
  4. 130 CLS=938:PLOT=820
  5. 140 :
  6. 150 X0=160:Y0=100  :REM  MITTELPUNKT
  7. 160 XR=90 :YR=80   :REM  X & Y-RADIUS
  8. 170 :
  9. 180 POKE53265,59:POKE53272,24:PRINT"[147]"
  10. 190 SYS CLS
  11. 200 :
  12. 210 FORA=0TO90STEP.5
  13. 220 B=A*(null)/180
  14. 230 X=COS(B)*XR:Y=SIN(B)*YR
  15. 240 SYS PLOT,X0+X,Y0+Y
  16. 250 SYS PLOT,X0+X,Y0-Y
  17. 260 SYS PLOT,X0-X,Y0+Y
  18. 270 SYS PLOT,X0-X,Y0-Y
  19. 280 NEXTA
  20. 290 :
  21. 300 POKE198,0:WAIT198,1:GETA$
  22. 310 :
  23. 320 POKE53265,27:POKE53272,21
  24. 330 END
  25. 340 :
  26.